home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / tabel. for-next (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  508b  |  29 lines
  1. 10 rem beDhnung brutto aus netto
  2. 20 dimnett(20)
  3. 30 dimmwst(20)
  4. 40 dimbrut(20)
  5. 50 rem einlesen der netto-werte
  6. 60 fori=0to20
  7. 70 printchr$(147)
  8. 80 print"nettowert "i":";:inputnett(i)
  9. 90 ifnett(i)=9999then110
  10. 100 nexti
  11. 110 rem beDhnen
  12. 120 fori=0to20
  13. 130 ifnett(i)=9999then160
  14. 140 mwst(i)=nett(i)*0.14
  15. 150 nexti
  16. 160 rem beDhnung brutto
  17. 170 fori=0to20
  18. 180 ifnett(i)=9999then210
  19. 190 brut(i)=nett(i)+mwst(i)
  20. 200 nexti
  21. 210 rem ausgeben der werte
  22. 220 printchr$(147)
  23. 230 print"netto","mwst","brutto"
  24. 240 fori=0to20
  25. 250 ifnett(i)=9999thenend
  26. 260 printnett(i),mwst(i),brut(i)
  27. 270 nexti
  28. 280 end
  29.